home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D09.D64 / mt intro (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.3 KB  |  107 lines
  1. 10 REM ***************************
  2. 20 REM ** MEMORY TRANSFER INTRO **
  3. 30 REM **     BY LEE BAMBER     **
  4. 40 REM ***************************
  5. 100 PRINT"[147][158]":POKE53280,0:POKE53281,0
  6. 110 PRINT" T H E   M E M O R Y   T R A N S F E R
  7. 115 [153]
  8. 120 [153]"   I N S T R U C T I O N   P A G E
  9. 122 PRINT:PRINT"                      BY LEE BAMBER"
  10. 125 PRINT""
  11. 130 PRINT"THIS INTRO WILL SIMPLY EXPLAIN ALL THE
  12. 135 [153]"POSSIBLITIES OF THE MEMORY TRANSFER"
  13. 140 [153]"GIVEN WITH THIS INTRO.  THE TWO MAIN
  14. 145 PRINT"USES OF THIS PACKAGE IS THE TRANSFER OF
  15. 150 [153]"RECORDED DATA IN THE MEMORY AND THE
  16. 155 PRINT"TRANSFER OF MACHINE CODE BLOCKS.
  17. 160 [153]"MOST PROFESSIONAL PROGRAMMERS MOVE THE
  18. 165 PRINT"MACHINE CODE AROUND IN MEMORY TO SUIT
  19. 170 [153]"THEIR PROGRAMS.  YET FOR THOSE OF YOU
  20. 175 PRINT"WHO CANNOT SEE HOW THIS UTILITY CAN
  21. 180 [153]"HELP YOU PRESS A KEY TO FIND OUT!!"
  22. 185 [161]A$:[139]A$[178]""[167][137]185
  23. 200 [153]"LOAD"
  24. 210 [153]"HERE IS A SCREEN IN MEMORY REDUCED IN
  25. 220 PRINT"SCALE :-"
  26. 230 PRINT""
  27. 231 PRINT"[166]AAAAAAAAAAAAA[166]"
  28. 232 PRINT"[166]A[166]A[166][166][166][166][166][166][166][166]AA[166]"
  29. 233 PRINT"[166]A[166]AAAAA[166]AA[166][166]A[166]"
  30. 234 PRINT"[166]A[166][166][166][166][166]A[166][166][166][166][166]A[166]"
  31. 235 PRINT"[166]A[166][166][166]A[166]A[166]AA[166]AA[166]"
  32. 236 PRINT"[166]A[166][166][166]A[166]A[166]AA[166]AA[166]"
  33. 237 PRINT"[166]A[166]A[166][166][166][166][166][166]A[166]AA[166]"
  34. 238 PRINT"[166]AAAAAAAAAAAAA[166]"
  35. 239 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  36. 240 PRINT""
  37. 250 PRINT"AND HERE IS AN EMPTY AREA IN MEMORY:-";:PRINT""
  38. 260 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  39. 261 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  40. 262 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  41. 263 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  42. 264 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  43. 265 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  44. 266 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  45. 267 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  46. 268 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";:PRINT""
  47. 270 FORT=0TO3000:NEXTT
  48. 280 PRINT"SUDDENLY YOUR
  49. 281 [153]"PROGRAM OVERWRITES
  50. 282 PRINT"YOUR SCREEN DATA!
  51. 283 [153]"WHAT DO YOU DO ?"
  52. 284 [153]"28TUTFDUDGHGEJD"
  53. 285 [153]"064FOHKBE94FOIH"
  54. 286 [153]"48HJHF8Y4"
  55. 290 [129]T[178]0[164]3000:[130]:[153]"";
  56. 300 [153]"WHY NOT TRANSFER
  57. 305 PRINT"THE DATA TO
  58. 310 [153]"ANOTHER BLOCK OF
  59. 315 PRINT"MEMORY USING THIS!"
  60. 320 FORT=0TO2000:NEXTT
  61. 350 PRINT"";
  62. 430 PRINT"";
  63. 431 PRINT"[166]AAAAAAAAAAAAA[166]"
  64. 432 PRINT"[166]A[166]A[166][166][166][166][166][166][166][166]AA[166]"
  65. 433 PRINT"[166]A[166]AAAAA[166]AA[166][166]A[166]"
  66. 434 PRINT"[166]A[166][166][166][166][166]A[166][166][166][166][166]A[166]"
  67. 435 PRINT"[166]A[166][166][166]A[166]A[166]AA[166]AA[166]"
  68. 436 PRINT"[166]A[166][166][166]A[166]A[166]AA[166]AA[166]"
  69. 437 PRINT"[166]A[166]A[166][166][166][166][166][166]A[166]AA[166]"
  70. 438 PRINT"[166]AAAAAAAAAAAAA[166]"
  71. 439 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":PRINT"[145][145][145]":PRINT"PRESS ANY KEY"
  72. 440 PRINT
  73. 450 GETA$:IFA$=""THEN450
  74. 500 PRINT"[147]";
  75. 510 PRINT"OR YOU COULD JUST SIMPLY SCAN THROUGH
  76. 520 [153]"THE MEMORY EXPERIMENTING WITH BLOCKS
  77. 530 PRINT"OF MEMORY.  YOU WILL FIND IT TO BE A
  78. 540 [153]"GREAT ALLIE WHEN PROGRAMMING.
  79. 550 PRINT:PRINT"YOU MAY FIND IT INTRESTING TO KNOW THAT
  80. 560 [153]"IN THE PROG'THE ULTIMATE FONT EDITOR'";
  81. 570 [153]"IT HAS A BUILT IN SCREEN DESIGNER, THE
  82. 580 PRINT"DATA FOR THIS SCREEN IS STORED AT
  83. 590 [153]"LOCATIONS 3072-4072.  THE MEMORY WHICH
  84. 600 PRINT"HOLDS THE TRANSFER UTILITY IS AT
  85. 610 [153]"2043-4800 SO IF YOU WOULD LIKE TO
  86. 620 PRINT"TRANSFER THIS SCREEN IN MEMORY,LOAD
  87. 630 [153]"THE SAVED SCREEN FILE AND TYPE:-"
  88. 640 [153]:[153]"A=0:FORT=3072 TO 4072:L=PEEK(T):POKE    20000+A,L:A=A+1:NEXTT"
  89. 645 [161]A$:[139]A$[178]""[167]645
  90. 650 [153]:[153]"YOU WILL HAVE NOTICED THE LARGE
  91. 660 PRINT"NUMBER THERE, THAT IS WHERE THE SCREEN
  92. 670 [153]"HAS BEEN TRANSFERED TO, WELL AWAY FROM
  93. 680 PRINT"THE TRANSFER PROGRAM.
  94. 690 [153]:[153]"* PLEASE NOTE!! WHEN LOADING THE SCREEN
  95. 700 PRINT"DATA FROM THE FONT EDITOR NO BASIC
  96. 710 [153]"PROGRAM MUST RESIDE IN MEMORY BETWEEN
  97. 720 PRINT"THE TWO STATED LOCATIONS.
  98. 730 [153]:[153]"I HOPE YOU WILL ENJOY USING THE UTILITY
  99. 740 PRINT"AS MUCH AS I HAVE."
  100. 750 PRINT:PRINT"       PRESS ANY KEY TO CONTINUE"
  101. 760 GETA$:IFA$=""THEN760
  102. 800 PRINT"[147]":POKE53280,3
  103. 810 PRINT"TO LOAD THE MEMORY TRANSFER LOAD IN THE"
  104. 820 PRINT"FILENAME 'MEMORY TRANSFER'."
  105. 830 PRINT
  106. 840 END
  107.